COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST2"
C00004 ENDMK
C⊗;
BEGIN "TEST2"
	DEFINE α="COMMENT";DEFINE π="3.1415927";
	REQUIRE "GEOMES.HDR" SOURCE_FILE;

	EXTERNAL SIMPLE INTEGER PROCEDURE ICAM (STRING FILE);

	INTEGER B1,B2,F,E,V,V0,E0,T,I;

	GEONIT;
	B1 ← IGEM("HIP.GEM[GEM,BGB]");
	ICAM("TMP.CAM[GEM,BGB]");

	E ← PED(B1); I←0;
	DO I←I+1 UNTIL B1=(E←PED(E));
	OUTSTR(CVS(I)&" EDGES"&13&10);

	F ← PFACE(B1); I←0;
	DO I←I+1 UNTIL B1=(F←PFACE(F));
	OUTSTR(CVS(I)&" FACES"&13&10);

	V ← PVT(B1); I←0;
	DO I←I+1 UNTIL B1=(V←PVT(V));
	OUTSTR(CVS(I)&" VERTICES"&13&10);

	F ← PFACE(B1);
	DO BEGIN 
		I←0;E←E0←PED(F);
		DO I←I+1 UNTIL E0=(E←ECCW(E,F));
		IF I≠3 THEN OUTSTR("NON TRIANGULAR FACE !!!"&13&10);
	END UNTIL B1=(F←PFACE(F));
	OUTSTR("END OF TRIANGULAR FACE VERIFICATION."&13&10);
	INCHRW;GEODPY;
	WHILE TRUE DO INCHRW;
END "TEST2"; BGB 19 MARCH 1973.